home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 11 (1991-11)(MindCraft Publishing)(Side A).zip / Nibble Volume 12, No. 11 (1991-11)(MindCraft Publishing)(Side A).po / HEX.WIZARD.bas < prev    next >
BASIC Source File  |  1996-12-24  |  3KB  |  59 lines
  1. 10  REM ***********************
  2. 20  REM *     HEX WIZARD      *
  3. 30  REM *  by Charles Fisher  *
  4. 40  REM *                     *
  5. 50  REM * Copyright (C) 1991  *
  6. 60  REM * MindCraft Publ Corp *
  7. 70  REM *  Lincoln, MA 01773  *
  8. 80  REM ***********************
  9. 100  HOME : LET D$ =  CHR$(4): PRINT  CHR$(21)
  10. 110 A$ = " ": INVERSE : FOR I = 1 TO 41: PRINT A$;: NEXT : FOR I = 1 TO 22: HTAB 40: PRINT A$A$;: NEXT : FOR I = 1 TO 38: PRINT A$;: NEXT : POKE 2039, ASC(A$): NORMAL 
  11. 120  VTAB 6: HTAB 14: PRINT "HEX WIZARD"
  12. 130  VTAB 8: HTAB 11: PRINT "by Charles Fisher": VTAB 11: HTAB 9: PRINT "Copyright (C) 1991 by": HTAB 7: PRINT "MindCraft Publishing Corp."
  13. 140  ONERR  GOTO 700
  14. 150  VTAB 15: HTAB 10: PRINT "one moment please . . .": PRINT D$;"BLOAD HEX.WIZ.BIN"
  15. 160  FOR J = 1 TO 3: VTAB 17: HTAB 7: PRINT "Be Sure 'Caps Lock' is Down": FOR I = 1 TO 1000: NEXT I: VTAB 17: HTAB 6: FOR I = 1 TO 30: PRINT " ";: NEXT I: FOR I = 1 TO 2000: NEXT J
  16. 170  VTAB 21: HTAB 5: PRINT "Is this an Apple IIGS? (Y/N): ";: GET GS$
  17. 180  IF GS$ < >"Y"  AND GS$ < >"N"  THEN  PRINT  CHR$(7);: GOTO 160
  18. 190  PRINT GS$;: POKE 255,0: IF GS$ = "Y"  THEN  POKE 255,1
  19. 200  REM  *** SET UP PATCHES ***
  20. 210  LET A$ = "3F5:4C 00 03 N 300:20 7B DD 20 52 E7 A6 50 A5 51 4C 41 F9 N 310:A9 C3 20 70 BE 60 N D823G"
  21. 220  FOR I = 1 TO  LEN(A$): POKE 511 +I, ASC( MID$ (A$,I,1)) +128: NEXT : POKE 72,0: CALL  -144
  22. 230  CALL 8192: REM  *** CALL HEX.WIZ.BIN ***
  23. 300  HOME : REM  *** FILE SELECTION ***
  24. 310  VTAB 12: HTAB 2: PRINT "Load/Save using slot: #";: GET SL$: PRINT SL$: VTAB 13: HTAB 17: PRINT "Drive: #";: GET DK$: PRINT DK$: FOR I = 1 TO 1000: NEXT I
  25. 320  PRINT D$;"PREFIX,S";SL$;",D";DK$
  26. 330  PRINT : HOME : PRINT D$;"CAT": PRINT : PRINT 
  27. 340  LET N =  PEEK(254): PRINT "Press Return to Cancel": PRINT "Enter Filename ";: INPUT F$
  28. 350  IF F$ = ""  THEN 230
  29. 360  PRINT : PRINT "Is this a SYS or a BIN file? (S/B): ";: GET S$
  30. 370  ON N GOTO 400,500
  31. 400  REM  *** BSAVE ROUTINE ***
  32. 410  LET LN =  PEEK(6) +256 * PEEK(7)
  33. 420  LET BA =  PEEK(8) +256 * PEEK(9): LET LO = BA -256 * INT(BA/256): LET HI =  INT(BA/256)
  34. 430  HOME : VTAB 12: HTAB 6: PRINT "BSAVING ";F$;",A$";: & BA: PRINT " ,L$";: & LN: PRINT 
  35. 440  PRINT D$;"BSAVE";F$;",A12288,L";LN
  36. 450  IF S$ = "S"  THEN  POKE 48824,255: POKE 48825,00: POKE 48826,32: POKE 785,195: GOTO 470
  37. 460  POKE 48825,LO: POKE 48826,HI: POKE 785,195
  38. 470  CALL 784
  39. 480  GOTO 230
  40. 500  REM  *** BLOAD ROUTINE ***
  41. 510  HOME : VTAB 12: HTAB 10: PRINT "BLOADING ";F$
  42. 520  IF S$ = "S"  THEN  GOTO 540
  43. 530  PRINT D$;"OPEN ";F$;",TBIN": GOTO 550
  44. 540  PRINT D$;"OPEN ";F$;",TSYS"
  45. 550  POKE 785,196
  46. 560  CALL 784
  47. 570  LET LO =  PEEK(48825):HI =  PEEK(48826): POKE 8,LO: POKE 9,HI: LET BA = LO +256 *HI
  48. 580  IF S$ = "S"  THEN  POKE 8,00: POKE 9,32:BA = 8192
  49. 590  PRINT D$;"CLOSE ";F$
  50. 600  IF S$ = "S"  THEN  PRINT D$;"BLOAD ";F$;",TSYS,A$3000": GOTO 620
  51. 610  PRINT D$;"BLOAD";F$;",A$3000"
  52. 620  LET LN =  PEEK(48857) +256 * PEEK(48858)
  53. 630  HOME : VTAB 12: HTAB 6: PRINT F$;" ,A$";: & BA: PRINT ",L$";: & LN: PRINT " BLOADed": PRINT : PRINT : VTAB 20: HTAB 7: PRINT "Press Any Key to Continue": GET A$: PRINT A$
  54. 640  LET JMP =  PEEK(238) +256 * PEEK(239)
  55. 650  CALL JMP
  56. 660  GOTO 230
  57. 700  REM  *** ERROR HANDLING ***
  58. 710  LET EC% =  PEEK(222): HOME : VTAB 11: HTAB 12
  59. 720  PRINT "DISK ERROR CODE : ";EC%: PRINT : HTAB 14: INPUT "PRESS RETURN ";A$: GOTO 230